home *** CD-ROM | disk | FTP | other *** search
/ Maximum CD 2012 February / maximum-cd-2012-02.iso / DiscContents / TheWagerSetup1.2.exe / Assets / Scripts / [27].lua < prev    next >
Encoding:
Text File  |  2011-02-26  |  776 b   |  26 lines
  1. -- Script [27]
  2. Starting = 1;
  3. SeaEvent = 0;
  4.  
  5. CrewID1 = math.random(0, CrewCount);
  6.  
  7. CrewID2 = math.random(0, CrewCount);
  8.  
  9. while CrewID2 == CrewID1 do
  10.   CrewID2 = math.random(0, CrewCount);
  11. end
  12.  
  13. CrewName1 = GetCrewName(CrewID1);
  14. CrewName2 = GetCrewName(CrewID2);
  15.  
  16. ShowStoryText("The explorations are going well until you hear shouting from the clearing beyond. There, you see two of your crew " .. CrewName1 .. " and " .. CrewName2 .. " involved in an rapidly escalating dispute over who discovered what. This really won't do, will it?");
  17.  
  18. AddChoice("These men are clearly in need of discipline", "[28]");
  19.  
  20. AddChoice("You know, it may be fun to simply watch", "[29]");
  21.  
  22. SetIntFlag(0, CrewID1);
  23. SetIntFlag(1, CrewID2);
  24. SetStartingEvent(ScriptID, false);
  25.  
  26.